﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class UnimedFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As UnimedBE
        Dim tmpUnimed As UnimedBE = New UnimedBE()
        Try
            With tmpUnimed
                .ClaUniMed = convertDTFromDb.ConvertString(dr.Item("ClaUniMed"))
                .DesUniMed = convertDTFromDb.ConvertString(dr.Item("DesUniMed"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
            End With
            Return tmpUnimed
        Catch ex As Exception
            Throw
        Finally
            tmpUnimed = Nothing
        End Try
    End Function
End Class
